inherited DAMOActor: TDAMOActor
  OldCreateOrder = True
  inherited ZQRY: TZQuery
    Connection = SoapServerDataModule.ZCONPagila
    SQL.Strings = (
      'SELECT * '
      '  FROM ACTOR'
      ' WHERE (:first_name IS NULL) OR (first_name LIKE :first_name)')
    Params = <
      item
        DataType = ftString
        Name = 'first_name'
        ParamType = ptInput
        Size = 45
        Value = Null
      end>
    ParamData = <
      item
        DataType = ftString
        Name = 'first_name'
        ParamType = ptInput
        Size = 45
        Value = Null
      end>
    object ZQRYactor_id: TIntegerField
      FieldName = 'actor_id'
      ProviderFlags = [pfInUpdate, pfInKey]
    end
    object ZQRYfirst_name: TWideStringField
      FieldName = 'first_name'
      ProviderFlags = [pfInUpdate]
      Size = 45
    end
    object ZQRYlast_name: TWideStringField
      FieldName = 'last_name'
      ProviderFlags = [pfInUpdate]
      Size = 45
    end
    object ZQRYlast_update: TDateTimeField
      FieldName = 'last_update'
      ProviderFlags = []
    end
  end
  inherited ZUSQ: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM ACTOR'
      ' WHERE actor_id = :actor_id')
    InsertSQL.Strings = (
      'INSERT INTO ACTOR (first_name'
      '                  ,last_name)'
      '           VALUES (:first_name'
      '                  ,:last_name)')
    ModifySQL.Strings = (
      'UPDATE ACTOR '
      '   SET first_name = :first_name'
      '     , last_name = :last_name'
      ' WHERE ACTOR.actor_id = :actor_id')
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'first_name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'last_name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'actor_id'
        ParamType = ptUnknown
      end>
  end
end
